home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)sdg.d64 / border 1 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  234b  |  12 lines
  1. 3 FOR J =11 TO 1 STEP-2:POKE53280,J+1:POKE53281,J-1
  2. 5 PRINT"[147]"
  3. 10 FOR X=1TO39:PRINT"*";:GOSUB60:NEXTX
  4. 20 FOR X=1TO23:PRINT"[157]*":GOSUB60:NEXTX
  5. 30 FOR X=1TO39:PRINT"[157]*[157]";:GOSUB60:NEXTX
  6. 40 FOR X=1TO23:PRINT"[157]*[145]";:GOSUB60:NEXTX
  7. 45 NEXTJ
  8. 50 GETA$:IFA$=""THEN50
  9. 55 POKE53280,6:POKE53281,6:END
  10. 60 FORY=1TO100:NEXTY
  11. 70 RETURN
  12.